program PROB002;
var
  i, sum, f0, f1, f2 : longint;

begin
  f0 := 1;
  f1 := 1;
  f2 := 2;
  sum := 2;
  for i := 3 to 40 do
  begin
    f0 := f1;
    f1 := f2;
    f2 := f0 + f1;
    if f2 > 1000000 then break;
    if f2 mod 2 = 0 then inc(sum, f2);
  end;
  writeln(sum);
end.
